Linux Cubed Series 2: Applications

home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / lisp / comint / history.elc < prev next >
Emacs Compiled Lisp | 1995-08-29 | 3.2 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	Emacs Compiled Lisp `(other/emacsCompiledLisp)`	magic	Unsupported
`1%`	dexvert	Combustion 2 Particle Library `(other/combustion2ParticleLibrary)`	ext	Unsupported
`100%`	file	Emacs/XEmacs v19 byte-compiled Lisp data	default
`99%`	file	data	default
`100%`	TrID	Emacs/XEmacs byte-compiled Lisp (generic)	default
`100%`	xdgMime	text/x-emacs-lisp	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 34 3a 32 | 38 20 31 39 39 35 0a 3b | 13:54:2|8 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 63 6f | 6d 69 6e 74 2f 68 69 73 |/lisp/co|mint/his|
|00000090| 74 6f 72 79 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |tory.el.|;;; emac|
|000000a0| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 31 33 20 |s versio|n 19.13 |
|000000b0| 58 45 6d 61 63 73 20 4c | 75 63 69 64 2e 0a 3b 3b |XEmacs L|ucid..;;|
|000000c0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000d0| 6f 6e 20 32 2e 32 35 3b | 20 31 2d 53 65 70 2d 39 |on 2.25;| 1-Sep-9|
|000000e0| 34 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |4..;;; o|ptimizat|
|000000f0| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000100| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000110| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000120| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000130| 73 20 31 38 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 18...(|if (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000150| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000170| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|00000180| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on)..   |
|00000190| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |  (strin|g-lessp |
|000001a0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 31 |emacs-ve|rsion "1|
|000001b0| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|000001c0| 20 22 54 68 69 73 20 66 | 69 6c 65 20 77 61 73 20 | "This f|ile was |
|000001d0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001e0| 63 73 20 31 39 2e 22 29 | 29 0a 0a 28 70 72 6f 76 |cs 19.")|)..(prov|
|000001f0| 69 64 65 20 27 68 69 73 | 74 6f 72 79 29 0a 28 64 |ide 'his|tory).(d|
|00000200| 65 66 76 61 72 20 68 69 | 73 74 6f 72 79 2d 6c 61 |efvar hi|story-la|
|00000210| 73 74 2d 73 65 61 72 63 | 68 20 22 22 20 22 5c 0a |st-searc|h "" "\.|
|00000220| 54 68 65 20 6c 61 73 74 | 20 72 65 67 65 78 70 20 |The last| regexp |
|00000230| 75 73 65 64 20 62 79 20 | 68 69 73 74 6f 72 79 2d |used by |history-|
|00000240| 73 65 61 72 63 68 20 77 | 68 69 63 68 20 72 65 73 |search w|hich res|
|00000250| 75 6c 74 65 64 20 69 6e | 20 61 20 6d 61 74 63 68 |ulted in| a match|
|00000260| 2e 22 29 0a 28 66 73 65 | 74 20 27 68 69 73 74 6f |.").(fse|t 'histo|
|00000270| 72 79 2d 61 64 64 20 23 | 5b 28 6c 69 73 74 20 69 |ry-add #|[(list i|
|00000280| 74 65 6d 20 73 69 7a 65 | 29 20 22 08 c1 5c 6e 43 |tem size|) "..\nC|
|00000290| c3 08 21 5c 22 4c 88 c3 | 08 21 89 1c 47 0d 56 ad |..!\"L..|.!..G.V.|
|000002a0| 86 0d 53 0c 9b c6 a1 29 | 87 22 20 5b 6c 69 73 74 |..S....)|." [list|
|000002b0| 20 61 70 70 65 6e 64 20 | 69 74 65 6d 20 65 76 61 | append |item eva|
|000002c0| 6c 20 65 6c 69 73 74 20 | 73 69 7a 65 20 6e 69 6c |l elist |size nil|
|000002d0| 5d 20 36 20 22 5c 0a 41 | 74 20 74 68 65 20 68 65 |] 6 "\.A|t the he|
|000002e0| 61 64 20 6f 66 20 4c 49 | 53 54 20 61 70 70 65 6e |ad of LI|ST appen|
|000002f0| 64 20 49 54 45 4d 2e 20 | 20 4c 69 6d 69 74 20 74 |d ITEM. | Limit t|
|00000300| 68 65 20 6c 65 6e 67 74 | 68 20 6f 66 20 4c 49 53 |he lengt|h of LIS|
|00000310| 54 20 74 6f 20 53 49 5a | 45 20 65 6c 65 6d 65 6e |T to SIZ|E elemen|
|00000320| 74 73 2e 0a 4c 49 53 54 | 20 73 68 6f 75 6c 64 20 |ts..LIST| should |
|00000330| 62 65 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |be the n|ame of t|
|00000340| 68 65 20 6c 69 73 74 2e | 22 5d 29 0a 28 66 73 65 |he list.|"]).(fse|
|00000350| 74 20 27 68 69 73 74 6f | 72 79 2d 66 65 74 63 68 |t 'histo|ry-fetch|
|00000360| 20 23 5b 28 6c 69 73 74 | 20 69 6e 64 65 78 20 64 | #[(list| index d|
|00000370| 69 72 20 26 6f 70 74 69 | 6f 6e 61 6c 20 62 65 67 |ir &opti|onal beg|
|00000380| 20 65 6e 64 29 20 22 c0 | c1 5c 6e 21 c1 0b 21 1c | end) ".|.\n!..!.|
|00000390| 1d 1e 06 0e 07 a7 ab 99 | 0e 07 0c 38 89 16 06 ab |........|...8....|
|000003a0| 87 5c 6e 0e 07 4c 88 aa | cd c8 c9 0e 07 0b 23 88 |.\n..L..|......#.|
|000003b0| aa c4 0e 07 ab 86 0e 07 | ca 3d ab a1 0d cb 55 ab |........|.=....U.|
|000003c0| 87 c8 cc 0b 5c 22 88 aa | ae 5c 6e 0d 53 4c 88 0d |....\"..|.\n.SL..|
|000003d0| cd 55 ab 83 ce aa 84 0d | 53 0c 38 16 06 aa 99 0d |.U......|S.8.....|
|000003e0| 54 0c 47 59 ab 87 c8 cf | 0b 5c 22 88 aa 8b 5c 6e |T.GY....|.\"...\n|
|000003f0| 0d 54 4c 88 0d 54 0c 38 | 16 06 d0 0e 11 21 ab 98 |.TL..T.8|.....!..|
|00000400| 0e 06 ab 94 d0 0e 12 21 | ab 86 0e 11 0e 12 7c 88 |.......!|......|.|
|00000410| 0e 06 63 88 0e 11 62 88 | 0e 06 2b 87 22 20 5b 6e |..c...b.|..+." [n|
|00000420| 69 6c 20 65 76 61 6c 20 | 69 6e 64 65 78 20 6c 69 |il eval |index li|
|00000430| 73 74 20 65 6c 69 73 74 | 20 65 69 6e 64 20 73 74 |st elist| eind st|
|00000440| 72 20 64 69 72 20 6d 65 | 73 73 61 67 65 20 22 4e |r dir me|ssage "N|
|00000450| 6f 20 65 6e 74 72 79 20 | 25 64 20 69 6e 20 25 73 |o entry |%d in %s|
|00000460| 2e 22 20 6e 65 78 74 20 | 2d 31 20 22 4e 6f 20 6e |." next |-1 "No n|
|00000470| 65 78 74 20 65 6e 74 72 | 79 20 69 6e 20 25 73 2e |ext entr|y in %s.|
|00000480| 22 20 30 20 22 22 20 22 | 4e 6f 20 70 72 65 76 69 |" 0 "" "|No previ|
|00000490| 6f 75 73 20 65 6e 74 72 | 79 20 69 6e 20 25 73 2e |ous entr|y in %s.|
|000004a0| 22 20 69 6e 74 65 67 65 | 72 2d 6f 72 2d 6d 61 72 |" intege|r-or-mar|
|000004b0| 6b 65 72 2d 70 20 62 65 | 67 20 65 6e 64 5d 20 35 |ker-p be|g end] 5|
|000004c0| 20 22 5c 0a 52 65 74 72 | 69 65 76 65 20 61 6e 20 | "\.Retr|ieve an |
|000004d0| 65 6e 74 72 79 20 66 72 | 6f 6d 20 4c 49 53 54 2c |entry fr|om LIST,|
|000004e0| 20 77 6f 72 6b 69 6e 67 | 20 66 72 6f 6d 20 49 4e | working| from IN|
|000004f0| 44 45 58 20 69 6e 20 64 | 69 72 65 63 74 69 6f 6e |DEX in d|irection|
|00000500| 20 44 49 52 2e 0a 4c 49 | 53 54 20 73 68 6f 75 6c | DIR..LI|ST shoul|
|00000510| 64 20 62 65 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |d be the| name of|
|00000520| 20 74 68 65 20 6c 69 73 | 74 2c 20 66 6f 72 20 6d | the lis|t, for m|
|00000530| 65 73 73 61 67 65 20 70 | 75 72 70 6f 73 65 73 2e |essage p|urposes.|
|00000540| 20 20 49 4e 44 45 58 20 | 73 68 6f 75 6c 64 20 62 |  INDEX |should b|
|00000550| 65 0a 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |e.the na|me of th|
|00000560| 65 20 76 61 72 69 61 62 | 6c 65 20 75 73 65 64 20 |e variab|le used |
|00000570| 74 6f 20 69 6e 64 65 78 | 20 74 68 65 20 6c 69 73 |to index| the lis|
|00000580| 74 2c 20 73 6f 20 69 74 | 20 63 61 6e 20 62 65 20 |t, so it| can be |
|00000590| 6d 61 69 6e 74 61 69 6e | 65 64 2e 0a 44 49 52 20 |maintain|ed..DIR |
|000005a0| 6e 6f 6e 2d 6e 69 6c 20 | 6d 65 61 6e 73 20 74 6f |non-nil |means to|
|000005b0| 20 75 73 65 20 70 72 65 | 76 69 6f 75 73 20 65 6e | use pre|vious en|
|000005c0| 74 72 79 2c 20 75 6e 6c | 65 73 73 20 69 74 20 69 |try, unl|ess it i|
|000005d0| 73 20 74 68 65 20 73 79 | 6d 62 6f 6c 20 60 60 6e |s the sy|mbol ``n|
|000005e0| 65 78 74 27 27 0a 74 6f | 20 67 65 74 20 74 68 65 |ext''.to| get the|
|000005f0| 20 6e 65 78 74 20 65 6e | 74 72 79 20 6f 72 20 61 | next en|try or a|
|00000600| 20 6e 75 6d 62 65 72 20 | 74 6f 20 67 65 74 20 61 | number |to get a|
|00000610| 6e 20 61 62 73 6f 6c 75 | 74 65 20 72 65 66 65 72 |n absolu|te refer|
|00000620| 65 6e 63 65 2e 20 20 44 | 49 52 0a 6e 69 6c 20 69 |ence.  D|IR.nil i|
|00000630| 73 20 65 71 75 69 76 61 | 6c 65 6e 74 20 74 6f 20 |s equiva|lent to |
|00000640| 60 60 6e 65 78 74 27 27 | 2e 0a 0a 49 66 20 6f 70 |``next''|...If op|
|00000650| 74 69 6f 6e 61 6c 20 6e | 75 6d 65 72 69 63 20 61 |tional n|umeric a|
|00000660| 72 67 75 6d 65 6e 74 20 | 42 45 47 20 69 73 20 70 |rgument |BEG is p|
|00000670| 72 65 73 65 74 2c 20 69 | 74 20 69 73 20 74 61 6b |reset, i|t is tak|
|00000680| 65 6e 20 61 73 20 74 68 | 65 20 70 6f 69 6e 74 20 |en as th|e point |
|00000690| 74 6f 20 69 6e 73 65 72 | 74 0a 74 68 65 20 65 6e |to inser|t.the en|
|000006a0| 74 72 79 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |try in t|he curre|
|000006b0| 6e 74 20 62 75 66 66 65 | 72 2c 20 6c 65 61 76 69 |nt buffe|r, leavi|
|000006c0| 6e 67 20 70 6f 69 6e 74 | 20 61 74 20 74 68 65 20 |ng point| at the |
|000006d0| 73 74 61 72 74 20 6f 66 | 20 74 68 65 20 65 6e 74 |start of| the ent|
|000006e0| 72 79 2e 0a 49 66 20 66 | 6f 6c 6c 6f 77 65 64 20 |ry..If f|ollowed |
|000006f0| 62 79 20 61 20 6e 75 6d | 65 72 69 63 20 45 4e 44 |by a num|eric END|
|00000700| 2c 20 74 68 65 20 72 65 | 67 69 6f 6e 20 62 65 74 |, the re|gion bet|
|00000710| 77 65 65 6e 20 42 45 47 | 20 61 6e 64 20 45 4e 44 |ween BEG| and END|
|00000720| 20 77 69 6c 6c 20 62 65 | 20 64 65 6c 65 74 65 64 | will be| deleted|
|00000730| 0a 62 65 66 6f 72 65 20 | 74 68 65 20 65 6e 74 72 |.before |the entr|
|00000740| 79 20 69 73 20 69 6e 73 | 65 72 74 65 64 2e 22 5d |y is ins|erted."]|
|00000750| 29 0a 28 66 73 65 74 20 | 27 68 69 73 74 6f 72 79 |).(fset |'history|
|00000760| 2d 73 65 61 72 63 68 20 | 23 5b 28 6c 69 73 74 20 |-search |#[(list |
|00000770| 69 6e 64 65 78 20 64 69 | 72 20 72 65 67 65 78 70 |index di|r regexp|
|00000780| 20 26 6f 70 74 69 6f 6e | 61 6c 20 62 65 67 20 65 | &option|al beg e|
|00000790| 6e 64 29 20 22 08 3f ae | 83 08 c1 3d 1a c3 1c c3 |nd) ".?.|...=....|
|000007a0| 1d c6 0e 07 21 1e 08 c6 | 0e 09 21 1e 5c 6e 5c 6e |....!...|..!.\n\n|
|000007b0| ab 8d 0e 5c 6e 47 0e 08 | 5a cb 0e 5c 6e 21 9b aa |...\nG..|Z..\n!..|
|000007c0| 86 0e 08 54 0e 5c 6e 9b | 1e 0c 0d ac a8 0e 0c ab |...T.\n.|........|
|000007d0| a4 cd 0e 0e 0e 0c 40 5c | 22 ab 88 0e 0c 40 15 0e |......@\|"....@..|
|000007e0| 0e 16 0f 5c 6e ab 83 d0 | aa 81 d1 0e 08 5c 5c 16 |...\n...|.....\\.|
|000007f0| 08 0e 0c 41 16 0c aa 55 | 0d ac 91 d2 d3 0e 0e 5c |...A...U|.......\|
|00000800| 6e ab 83 d4 aa 81 d5 0e | 09 24 88 aa 9f 0e 07 0e |n.......|.$......|
|00000810| 08 4c 88 d6 0e 17 21 ab | 93 d6 0e 18 21 ab 86 0e |.L....!.|....!...|
|00000820| 17 0e 18 7c 88 0d 63 88 | 0e 17 62 88 0d 2e 06 87 |...|..c.|..b.....|
|00000830| 22 20 5b 64 69 72 20 66 | 6f 72 77 61 72 64 20 66 |" [dir f|orward f|
|00000840| 6f 72 77 20 6e 69 6c 20 | 73 74 72 20 66 6f 75 6e |orw nil |str foun|
|00000850| 64 20 65 76 61 6c 20 69 | 6e 64 65 78 20 65 69 6e |d eval i|ndex ein|
|00000860| 64 20 6c 69 73 74 20 65 | 6c 69 73 74 20 72 65 76 |d list e|list rev|
|00000870| 65 72 73 65 20 73 6c 69 | 73 74 20 73 74 72 69 6e |erse sli|st strin|
|00000880| 67 2d 6d 61 74 63 68 20 | 72 65 67 65 78 70 20 68 |g-match |regexp h|
|00000890| 69 73 74 6f 72 79 2d 6c | 61 73 74 2d 73 65 61 72 |istory-l|ast-sear|
|000008a0| 63 68 20 2d 31 20 31 20 | 65 72 72 6f 72 20 22 5c |ch -1 1 |error "\|
|000008b0| 22 25 73 5c 22 20 6e 6f | 74 20 66 6f 75 6e 64 20 |"%s\" no|t found |
|000008c0| 25 73 20 69 6e 20 25 73 | 22 20 22 66 6f 72 77 61 |%s in %s|" "forwa|
|000008d0| 72 64 22 20 22 62 61 63 | 6b 77 61 72 64 22 20 69 |rd" "bac|kward" i|
|000008e0| 6e 74 65 67 65 72 2d 6f | 72 2d 6d 61 72 6b 65 72 |nteger-o|r-marker|
|000008f0| 2d 70 20 62 65 67 20 65 | 6e 64 5d 20 35 20 22 5c |-p beg e|nd] 5 "\|
|00000900| 0a 49 6e 20 68 69 73 74 | 6f 72 79 20 4c 49 53 54 |.In hist|ory LIST|
|00000910| 2c 20 73 74 61 72 74 69 | 6e 67 20 61 74 20 49 4e |, starti|ng at IN|
|00000920| 44 45 58 20 61 6e 64 20 | 77 6f 72 6b 69 6e 67 20 |DEX and |working |
|00000930| 69 6e 20 64 69 72 65 63 | 74 69 6f 6e 20 44 49 52 |in direc|tion DIR|
|00000940| 2c 20 66 69 6e 64 20 52 | 45 47 45 58 50 2e 0a 4c |, find R|EGEXP..L|
|00000950| 49 53 54 20 61 6e 64 20 | 49 4e 44 45 58 20 73 68 |IST and |INDEX sh|
|00000960| 6f 75 6c 64 20 62 65 20 | 74 68 65 69 72 20 72 65 |ould be |their re|
|00000970| 73 70 65 63 74 69 76 65 | 20 73 79 6d 62 6f 6c 20 |spective| symbol |
|00000980| 6e 61 6d 65 73 2e 20 20 | 44 49 52 20 6e 69 6c 20 |names.  |DIR nil |
|00000990| 6f 72 20 27 66 6f 72 77 | 61 72 64 0a 6d 65 61 6e |or 'forw|ard.mean|
|000009a0| 73 20 74 6f 20 73 65 61 | 72 63 68 20 66 72 6f 6d |s to sea|rch from|
|000009b0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 69 6e 64 | the cur|rent ind|
|000009c0| 65 78 20 74 6f 77 61 72 | 64 20 74 68 65 20 6d 6f |ex towar|d the mo|
|000009d0| 73 74 20 72 65 63 65 6e | 74 20 68 69 73 74 6f 72 |st recen|t histor|
|000009e0| 79 20 65 6e 74 72 79 2e | 0a 44 49 52 20 6e 6f 6e |y entry.|.DIR non|
|000009f0| 2d 6e 69 6c 20 6d 65 61 | 6e 73 20 74 6f 20 73 65 |-nil mea|ns to se|
|00000a00| 61 72 63 68 20 74 6f 77 | 61 72 64 20 74 68 65 20 |arch tow|ard the |
|00000a10| 6f 6c 64 65 73 74 20 65 | 6e 74 72 79 2e 20 20 54 |oldest e|ntry.  T|
|00000a20| 68 65 20 63 75 72 72 65 | 6e 74 20 65 6e 74 72 79 |he curre|nt entry|
|00000a30| 20 69 73 0a 6e 6f 74 20 | 63 68 65 63 6b 65 64 20 | is.not |checked |
|00000a40| 69 6e 20 65 69 74 68 65 | 72 20 63 61 73 65 2e 0a |in eithe|r case..|
|00000a50| 0a 49 66 20 61 6e 20 65 | 6e 74 72 79 20 69 73 20 |.If an e|ntry is |
|00000a60| 66 6f 75 6e 64 20 61 6e | 64 20 6f 70 74 69 6f 6e |found an|d option|
|00000a70| 61 6c 20 6e 75 6d 65 72 | 69 63 20 61 72 67 75 6d |al numer|ic argum|
|00000a80| 65 6e 74 20 42 45 47 20 | 65 78 69 73 74 73 20 74 |ent BEG |exists t|
|00000a90| 68 65 6e 20 74 68 65 20 | 65 6e 74 72 79 0a 77 69 |hen the |entry.wi|
|00000aa0| 6c 6c 20 62 65 20 69 6e | 73 65 72 74 65 64 20 74 |ll be in|serted t|
|00000ab0| 68 65 72 65 20 61 6e 64 | 20 70 6f 69 6e 74 20 6c |here and| point l|
|00000ac0| 65 66 74 20 61 74 20 42 | 45 47 2e 20 20 49 66 20 |eft at B|EG.  If |
|00000ad0| 6e 75 6d 65 72 69 63 20 | 45 4e 44 20 61 6c 73 6f |numeric |END also|
|00000ae0| 20 65 78 69 73 74 73 0a | 74 68 65 6e 20 74 68 65 | exists.|then the|
|00000af0| 20 72 65 67 69 6f 6e 20 | 77 69 6c 6c 20 62 65 20 | region |will be |
|00000b00| 64 65 6c 65 74 65 64 20 | 62 65 74 77 65 65 6e 20 |deleted |between |
|00000b10| 42 45 47 20 61 6e 64 20 | 45 4e 44 2e 22 5d 29 0a |BEG and |END."]).|
|00000b20| 28 66 73 65 74 20 27 68 | 69 73 74 6f 72 79 2d 6d |(fset 'h|istory-m|
|00000b30| 65 6e 75 20 23 5b 28 6c | 69 73 74 20 62 75 66 66 |enu #[(l|ist buff|
|00000b40| 65 72 20 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 6f 74 |er &opti|onal not|
|00000b50| 65 6d 70 29 20 22 c0 c1 | c2 c3 0c c5 23 1e 06 1e |emp) "..|....#...|
|00000b60| 07 1e 08 0e 09 ab 8c 8a | 0e 06 63 88 ca 0e 0b 21 |........|..c....!|
|00000b70| 29 aa 88 0e 0b 90 cc 0e | 06 21 91 2b 87 22 20 5b |).......|.!.+." [|
|00000b80| 74 20 30 20 6d 61 70 63 | 6f 6e 63 61 74 20 23 5b |t 0 mapc|oncat #[|
|00000b90| 28 69 74 65 6d 29 20 22 | 08 54 10 c1 89 c2 c3 0c |(item) "|.T......|
|00000ba0| 47 21 5c 22 08 0d 23 87 | 22 20 5b 6c 69 6e 65 20 |G!\"..#.|" [line |
|00000bb0| 66 6f 72 6d 61 74 20 22 | 25 25 25 64 64 3a 20 25 |format "|%%%dd: %|
|00000bc0| 25 73 22 20 69 6e 74 2d | 74 6f 2d 73 74 72 69 6e |%s" int-|to-strin|
|00000bd0| 67 20 6c 69 73 74 20 69 | 74 65 6d 5d 20 35 5d 20 |g list i|tem] 5] |
|00000be0| 6c 69 73 74 20 22 5c 6e | 22 20 6d 65 6e 75 20 6c |list "\n|" menu l|
|00000bf0| 69 6e 65 20 70 6f 70 2d | 75 70 2d 77 69 6e 64 6f |ine pop-|up-windo|
|00000c00| 77 73 20 6e 6f 74 65 6d | 70 20 64 69 73 70 6c 61 |ws notem|p displa|
|00000c10| 79 2d 62 75 66 66 65 72 | 20 62 75 66 66 65 72 20 |y-buffer| buffer |
|00000c20| 70 72 69 6e 63 5d 20 36 | 20 22 5c 0a 53 68 6f 77 |princ] 6| "\.Show|
|00000c30| 20 74 68 65 20 68 69 73 | 74 6f 72 79 20 6b 65 70 | the his|tory kep|
|00000c40| 74 20 62 79 20 4c 49 53 | 54 20 69 6e 20 42 55 46 |t by LIS|T in BUF|
|00000c50| 46 45 52 2e 0a 54 68 69 | 73 20 66 75 6e 63 74 69 |FER..Thi|s functi|
|00000c60| 6f 6e 20 77 69 6c 6c 20 | 75 73 65 20 60 60 77 69 |on will |use ``wi|
|00000c70| 74 68 2d 6f 75 74 70 75 | 74 2d 74 6f 2d 74 65 6d |th-outpu|t-to-tem|
|00000c80| 70 2d 62 75 66 66 65 72 | 27 27 20 75 6e 6c 65 73 |p-buffer|'' unles|
|00000c90| 73 20 6f 70 74 69 6f 6e | 61 6c 20 74 68 69 72 64 |s option|al third|
|00000ca0| 0a 61 72 67 75 6d 65 6e | 74 20 4e 4f 54 45 4d 50 |.argumen|t NOTEMP|
|00000cb0| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2e 22 5d 29 0a | is non-|nil."]).|
+--------+-------------------------+-------------------------+--------+--------+